﻿Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Seuss.EnterpriseLibrary.DataAccess
Imports Seuss.EnterpriseLibrary.BusinessLogic
Imports System.Web
Imports System.Data

Partial Class Consulta_PA_AsuntosEstudiantiles_Contenido
    Inherits System.Web.UI.Page
    Dim cPerCodigo As String
    Dim nUniOrgCodigo As Integer
    Dim salto_linea As String = Chr(13) + Chr(10)
    Dim cPerJuridica As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cPerCodigo = Request.QueryString("cPerCodigo")
        nUniOrgCodigo = Request.QueryString("nUniOrgCodigo")
        cPerJuridica = Request.QueryString("cPerJuridica")

        Response.Expires = -1
        Response.AddHeader("Pragma", "no-cache")
        Response.AddHeader("cache-control", "private")
        Response.CacheControl = "no-cache"

        If Not Page.IsPostBack Then
            lblcPercodigo.Text = cPerCodigo
            lblnUniOrgCodigo.Text = nUniOrgCodigo
            lblcPerJuridica.Text = cPerJuridica
            Call CargarTema()
            LabelEscuela.Text = CargarEscuela() + CargarNombreEscuela() + CargarDescripcionEscuela() + CargarPerspectivaEscuela() + CargarGradoEscuela()
            Using Seguridad As New BLL_Administracion
                Seguridad.Set_Transaccion_Insert(Nothing, 100401, IdentityUser.UserCode, My.Request.UserHostAddress.ToString, CrearXMLTransaccion("Consulta Pagina Movil", "/Pagina|" + My.Request.Url.Segments(My.Request.Url.Segments.Length - 1).ToString))
            End Using
        End If
    End Sub

    Private Sub CargarTema()    
        Dim css As String = ""
        Dim colorfinal As String = ""
        Dim ldr As New List(Of IDataReader)

        Using ObjPool As New PoolDbCommand()
            Dim ObjUsuario As New DAL_Kiosco(ObjPool.Database)
            ObjPool.AddDbCommand(ObjUsuario.Get_ServiciosUniversitarios_Tema(9001, 3, lblnUniOrgCodigo.Text, 8510, 6316, 0), PoolDbCommand.PoolDbCommandResultType.Query)
            ObjPool.Pooling(Nothing, ldr, True)
            ObjUsuario = Nothing
            While ldr(0).Read
                If ldr(0).Item("tDocConContenido").ToString = "#FFFFFF" Then
                    colorfinal = "#0069BA"
                Else
                    colorfinal = ldr(0).Item("tDocConContenido").ToString
                End If
                css = css + "<style>.colorescuela{color:" + colorfinal + ";}.fondoescuela{background:" + colorfinal + ";}</style>"
            End While
        End Using
        LabelCSS.Text = css
    End Sub

    Private Function CargarEscuela() As String
        Dim img_escuela As String = ""
        Dim ldr As New List(Of IDataReader)

        Using ObjPool As New PoolDbCommand()
            Dim ObjUsuario As New DAL_Kiosco(ObjPool.Database)
            ObjPool.AddDbCommand(ObjUsuario.Get_ServiciosUniversitarios_Tema(9001, 2, lblnUniOrgCodigo.Text, 8510, 6316, 0), PoolDbCommand.PoolDbCommandResultType.Query)
            ObjPool.Pooling(Nothing, ldr, True)
            ObjUsuario = Nothing
            While ldr(0).Read
                If ldr(0).Item("tDocConContenido").ToString <> "" Then
                    img_escuela = img_escuela + "<div id=imagen><img src='http://ucvvirtual.edu.pe/contenido_web/banner_escuelas/" + ldr(0).Item("tDocConContenido").ToString + "' width=100% border=0 vspace=3 /></div>" + salto_linea
                End If
            End While
        End Using

        Return img_escuela
    End Function

    Private Function CargarNombreEscuela() As String
        Dim nombre_escuela As String = ""
        Dim ldr As New List(Of IDataReader)

        Using ObjPool As New PoolDbCommand()
            Dim ObjUsuario As New DAL_Kiosco(ObjPool.Database)
            ObjPool.AddDbCommand(ObjUsuario.Get_ServiciosUniversitarios_NombreEscuela(lblnUniOrgCodigo.Text), PoolDbCommand.PoolDbCommandResultType.Query)
            ObjPool.Pooling(Nothing, ldr, True)
            ObjUsuario = Nothing
            While ldr(0).Read
                nombre_escuela = nombre_escuela + "<div id=grado ><h2>" + ldr(0).Item("cUniOrgAbrev").ToString + "</h2></div>" + salto_linea
            End While
        End Using

        Return nombre_escuela
    End Function

    Private Function CargarDescripcionEscuela() As String
        Dim descripcion_texto_escuela As String = ""
        Dim ldr As New List(Of IDataReader)

        Using ObjPool As New PoolDbCommand()
            Dim ObjUsuario As New DAL_Kiosco(ObjPool.Database)
            ObjPool.AddDbCommand(ObjUsuario.Get_ServiciosUniversitarios_Tema(9001, 1, lblnUniOrgCodigo.Text, 8510, 6316, 0, 2), PoolDbCommand.PoolDbCommandResultType.Query)
            ObjPool.Pooling(Nothing, ldr, True)
            ObjUsuario = Nothing
            While ldr(0).Read
                descripcion_texto_escuela = descripcion_texto_escuela + "<div id=descripcion>" + ldr(0).Item("tDocConContenido").ToString + "</div>" + salto_linea
            End While
        End Using

        Return descripcion_texto_escuela
    End Function

    Private Function CargarPerspectivaEscuela() As String
        Dim ocupacion_profesional As String = ""
        Dim ldr As New List(Of IDataReader)

        Using ObjPool As New PoolDbCommand()
            Dim ObjUsuario As New DAL_Kiosco(ObjPool.Database)
            ObjPool.AddDbCommand(ObjUsuario.Get_ServiciosUniversitarios_Tema(9001, 14, lblnUniOrgCodigo.Text, 8510, 6316, 1, 37), PoolDbCommand.PoolDbCommandResultType.Query)
            ObjPool.Pooling(Nothing, ldr, True)
            ObjUsuario = Nothing
            While ldr(0).Read
                ocupacion_profesional = ocupacion_profesional + "<div id=grado><h2>" + ldr(0).Item("cIntNombre").ToString + "</h2></div><div id=descripcion>" + ldr(0).Item("tDocConContenido").ToString + "</div>" + salto_linea                
            End While
        End Using

        Return ocupacion_profesional
    End Function

    Private Function CargarGradoEscuela() As String
        Dim grado_descripcion As String = ""
        Dim ldr As New List(Of IDataReader)

        Using ObjPool As New PoolDbCommand()
            Dim ObjUsuario As New DAL_Kiosco(ObjPool.Database)
            ObjPool.AddDbCommand(ObjUsuario.Get_ServiciosUniversitarios_DatosEscuela(lblnUniOrgCodigo.Text), PoolDbCommand.PoolDbCommandResultType.Query)
            ObjPool.Pooling(Nothing, ldr, True)
            ObjUsuario = Nothing
            While ldr(0).Read                
                grado_descripcion = grado_descripcion + "<div id=grado><h2>Contacto</h2><h3><b>E-mail : <b>" + ldr(0).Item("cEmail").ToString + "<br><b>Teléfono : <b>" + ldr(0).Item("cTelefono").ToString + " <b>Anexo : <b>" + ldr(0).Item("cAnexo").ToString + "<br><b>Ubicación : <b>" + ldr(0).Item("cUbicacion").ToString + "</h3></div>" + salto_linea
            End While
        End Using

        Return grado_descripcion
    End Function
End Class
